'
' This example demonstrates how to work with devices through scripting.
'
NewScene , false
' First make sure the device manager is active (we can't add devices if it isn't)
if Not(Application.Devices.Enable) then
        Application.Devices.Enable = true
end if
' Get the DeviceManager (DeviceCollection)
set oDevices = Application.Devices
' Get a pointer to the PC1600 Device, if it exists
set oDevice = oDevices.Item("PC1600")
' If it doesn't exist, then create it
if TypeName(oDevice) = "Nothing" then
        set oDevice = oDevices.AddDevice( "PC1600" )
end if
LogMessage "The device name is " & oDevice
'INFO : The device name is DeviceManager.PC1600